|
|
 |
 |
<%
Dim oRs
Dim oCmd
Dim myconn
Dim nID
Dim nPageNo
if Request.QueryString("id") then
nID = CInt(Request.QueryString("id"))
else
nID=-1
end if
if Request.QueryString("pageno") then
nPageNo = CInt(Request.QueryString("pageno"))
else
nPageNo = 1
end if
%>
 Return to the
Guestbook |
| |
<%=sGBHeadingFont%>Guest<%=sGBHeadingFontEnd%> |
<%=sGBHeadingFont%>Comments<%=sGBHeadingFontEnd%> |
<%=sGBHeadingFont%>Date<%=sGBHeadingFontEnd%> |
| <%
Set oRs = Server.CreateObject("ADODB.Recordset")
Set myconn = GetConnection("passwords/")
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = myconn
oCmd.CommandType = 1
oCmd.CommandText = "SELECT UserName, UserCompany, UserURL, Date, Comments, Comments2, Comments3, Comments4 FROM Guestbook WHERE GuestbookID=" & Request.QueryString("id")
oRs.Open oCmd
%><%
if not oRs is NOTHING and not oRs.eof then
oRs.MoveFirst
Dim sURL
Dim sURLName
sURL = oRs("UserURL")
sURLName = sURL
if (InStr(sURL, "://")) Then
sURLName = Right(sURL, (Len(sURL) - InStr(sURL, "://") - 2))
End If
Response.Write "| | "
Response.Write "" & sGBGuestInfoFont
Response.Write oRs("UserName") & "
" & oRs("UserCompany") & "
"
Response.Write "" & sURLName & "" & sGBGuestInfoFontEnd & " | "
Response.Write "" & sGBCommentsFont
Response.Write oRs("Comments") & oRs("Comments2") & oRs("Comments3") & oRs("Comments4")
Response.Write sGBCommentsFontEnd & " | "
Response.Write "" & sGBGuestInfoFont
Response.Write oRs("Date") & sGBGuestInfoFontEnd & " | "
Response.Write " | " & vbCrLf
end if
%> <%'!!%> | |
|
